/ Komputer for Alle 2001 #9 / CD 9 (Black) - 2001.iso / Pinball / System / UBrowser.u / UBrowserServerList_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 66 7e 2f 2f 3d 3d 3d 3d |........|f~//====|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 20 55 42 |========|=..// UB|
|00000060| 72 6f 77 73 65 72 53 65 | 72 76 65 72 4c 69 73 74 |rowserSe|rverList|
|00000070| 0d 0a 2f 2f 09 09 53 74 | 6f 72 65 73 20 61 20 73 |..//..St|ores a s|
|00000080| 65 72 76 65 72 20 65 6e | 74 72 79 20 69 6e 20 61 |erver en|try in a|
|00000090| 6e 20 55 6e 72 65 61 6c | 20 53 65 72 76 65 72 20 |n Unreal| Server |
|000000a0| 4c 69 73 74 0d 0a 2f 2f | 3d 3d 3d 3d 3d 3d 3d 3d |List..//|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000f0| 3d 3d 3d 3d 3d 0d 0a 0d | 0a 63 6c 61 73 73 20 55 |=====...|.class U|
|00000100| 42 72 6f 77 73 65 72 53 | 65 72 76 65 72 4c 69 73 |BrowserS|erverLis|
|00000110| 74 20 65 78 74 65 6e 64 | 73 20 55 57 69 6e 64 6f |t extend|s UWindo|
|00000120| 77 4c 69 73 74 3b 0d 0a | 0d 0a 2f 2f 20 56 61 6c |wList;..|..// Val|
|00000130| 69 64 20 66 6f 72 20 73 | 65 6e 74 69 6e 65 6c 20 |id for s|entinel |
|00000140| 6f 6e 6c 79 0d 0a 76 61 | 72 09 55 42 72 6f 77 73 |only..va|r.UBrows|
|00000150| 65 72 53 65 72 76 65 72 | 4c 69 73 74 57 69 6e 64 |erServer|ListWind|
|00000160| 6f 77 09 4f 77 6e 65 72 | 3b 0d 0a 76 61 72 20 69 |ow.Owner|;..var i|
|00000170| 6e 74 09 09 09 09 09 54 | 6f 74 61 6c 53 65 72 76 |nt.....T|otalServ|
|00000180| 65 72 73 3b 0d 0a 76 61 | 72 20 69 6e 74 09 09 09 |ers;..va|r int...|
|00000190| 09 09 54 6f 74 61 6c 50 | 6c 61 79 65 72 73 3b 0d |..TotalP|layers;.|
|000001a0| 0a 76 61 72 20 69 6e 74 | 09 09 09 09 09 54 6f 74 |.var int|.....Tot|
|000001b0| 61 6c 4d 61 78 50 6c 61 | 79 65 72 73 3b 0d 0a 76 |alMaxPla|yers;..v|
|000001c0| 61 72 20 62 6f 6f 6c 09 | 09 09 09 62 4e 65 65 64 |ar bool.|...bNeed|
|000001d0| 55 70 64 61 74 65 43 6f | 75 6e 74 3b 0d 0a 0d 0a |UpdateCo|unt;....|
|000001e0| 2f 2f 20 43 6f 6e 66 69 | 67 0d 0a 76 61 72 20 63 |// Confi|g..var c|
|000001f0| 6f 6e 66 69 67 20 69 6e | 74 09 09 09 4d 61 78 53 |onfig in|t...MaxS|
|00000200| 69 6d 75 6c 74 61 6e 65 | 6f 75 73 50 69 6e 67 3b |imultane|ousPing;|
|00000210| 0d 0a 0d 0a 2f 2f 20 4d | 61 73 74 65 72 20 73 65 |....// M|aster se|
|00000220| 72 76 65 72 20 76 61 72 | 69 61 62 6c 65 73 0d 0a |rver var|iables..|
|00000230| 76 61 72 20 73 74 72 69 | 6e 67 09 09 09 09 49 50 |var stri|ng....IP|
|00000240| 3b 0d 0a 76 61 72 20 69 | 6e 74 09 09 09 09 09 51 |;..var i|nt.....Q|
|00000250| 75 65 72 79 50 6f 72 74 | 3b 0d 0a 76 61 72 20 73 |ueryPort|;..var s|
|00000260| 74 72 69 6e 67 09 09 09 | 09 43 61 74 65 67 6f 72 |tring...|.Categor|
|00000270| 79 3b 09 09 2f 2f 20 4d | 61 73 74 65 72 20 73 65 |y;..// M|aster se|
|00000280| 72 76 65 72 20 63 61 74 | 65 67 6f 72 69 7a 61 74 |rver cat|egorizat|
|00000290| 69 6f 6e 0d 0a 76 61 72 | 20 73 74 72 69 6e 67 09 |ion..var| string.|
|000002a0| 09 09 09 47 61 6d 65 4e | 61 6d 65 3b 09 09 2f 2f |...GameN|ame;..//|
|000002b0| 20 55 6e 72 65 61 6c 2c | 20 55 6e 72 65 61 6c 20 | Unreal,| Unreal |
|000002c0| 54 6f 75 72 6e 61 6d 65 | 6e 74 0d 0a 0d 0a 2f 2f |Tourname|nt....//|
|000002d0| 20 53 74 61 74 65 20 6f | 66 20 74 68 65 20 70 69 | State o|f the pi|
|000002e0| 6e 67 0d 0a 76 61 72 20 | 55 42 72 6f 77 73 65 72 |ng..var |UBrowser|
|000002f0| 53 65 72 76 65 72 50 69 | 6e 67 09 53 65 72 76 65 |ServerPi|ng.Serve|
|00000300| 72 50 69 6e 67 3b 0d 0a | 76 61 72 20 62 6f 6f 6c |rPing;..|var bool|
|00000310| 09 09 09 09 62 50 69 6e | 67 69 6e 67 3b 0d 0a 76 |....bPin|ging;..v|
|00000320| 61 72 20 62 6f 6f 6c 09 | 09 09 09 62 50 69 6e 67 |ar bool.|...bPing|
|00000330| 46 61 69 6c 65 64 3b 0d | 0a 76 61 72 20 62 6f 6f |Failed;.|.var boo|
|00000340| 6c 09 09 09 09 62 50 69 | 6e 67 65 64 3b 0d 0a 76 |l....bPi|nged;..v|
|00000350| 61 72 20 62 6f 6f 6c 09 | 09 09 09 62 4e 6f 49 6e |ar bool.|...bNoIn|
|00000360| 69 74 61 6c 50 69 6e 67 | 3b 0d 0a 76 61 72 20 62 |italPing|;..var b|
|00000370| 6f 6f 6c 09 09 09 09 62 | 4f 6c 64 53 65 72 76 65 |ool....b|OldServe|
|00000380| 72 3b 0d 0a 0d 0a 2f 2f | 20 52 75 6c 65 73 20 61 |r;....//| Rules a|
|00000390| 6e 64 20 4c 69 73 74 73 | 0d 0a 76 61 72 20 55 42 |nd Lists|..var UB|
|000003a0| 72 6f 77 73 65 72 52 75 | 6c 65 73 4c 69 73 74 09 |rowserRu|lesList.|
|000003b0| 52 75 6c 65 73 4c 69 73 | 74 3b 0d 0a 76 61 72 20 |RulesLis|t;..var |
|000003c0| 55 42 72 6f 77 73 65 72 | 50 6c 61 79 65 72 4c 69 |UBrowser|PlayerLi|
|000003d0| 73 74 20 20 50 6c 61 79 | 65 72 4c 69 73 74 3b 0d |st  Play|erList;.|
|000003e0| 0a 76 61 72 20 62 6f 6f | 6c 09 09 09 09 62 4b 65 |.var boo|l....bKe|
|000003f0| 65 70 44 65 73 63 72 69 | 70 74 69 6f 6e 3b 09 2f |epDescri|ption;./|
|00000400| 2f 20 64 6f 6e 27 74 20 | 6f 76 65 72 77 72 69 74 |/ don't |overwrit|
|00000410| 65 20 48 6f 73 74 4e 61 | 6d 65 0d 0a 76 61 72 20 |e HostNa|me..var |
|00000420| 69 6e 74 09 09 09 09 09 | 50 6c 61 79 65 72 4c 69 |int.....|PlayerLi|
|00000430| 73 74 53 6f 72 74 43 6f | 6c 75 6d 6e 3b 0d 0a 0d |stSortCo|lumn;...|
|00000440| 0a 2f 2f 20 55 6e 72 65 | 61 6c 20 73 65 72 76 65 |.// Unre|al serve|
|00000450| 72 20 76 61 72 69 61 62 | 6c 65 73 0d 0a 76 61 72 |r variab|les..var|
|00000460| 20 62 6f 6f 6c 09 09 09 | 09 62 4c 6f 63 61 6c 53 | bool...|.bLocalS|
|00000470| 65 72 76 65 72 3b 0d 0a | 76 61 72 20 66 6c 6f 61 |erver;..|var floa|
|00000480| 74 09 09 09 09 50 69 6e | 67 3b 0d 0a 76 61 72 20 |t....Pin|g;..var |
|00000490| 73 74 72 69 6e 67 09 09 | 09 09 48 6f 73 74 4e 61 |string..|..HostNa|
|000004a0| 6d 65 3b 0d 0a 76 61 72 | 20 69 6e 74 09 09 09 09 |me;..var| int....|
|000004b0| 09 47 61 6d 65 50 6f 72 | 74 3b 0d 0a 76 61 72 20 |.GamePor|t;..var |
|000004c0| 73 74 72 69 6e 67 09 09 | 09 09 4d 61 70 4e 61 6d |string..|..MapNam|
|000004d0| 65 3b 0d 0a 76 61 72 20 | 73 74 72 69 6e 67 09 09 |e;..var |string..|
|000004e0| 09 09 4d 61 70 54 69 74 | 6c 65 3b 0d 0a 76 61 72 |..MapTit|le;..var|
|000004f0| 20 73 74 72 69 6e 67 09 | 09 09 09 4d 61 70 44 69 | string.|...MapDi|
|00000500| 73 70 6c 61 79 4e 61 6d | 65 3b 0d 0a 76 61 72 20 |splayNam|e;..var |
|00000510| 73 74 72 69 6e 67 09 09 | 09 09 47 61 6d 65 54 79 |string..|..GameTy|
|00000520| 70 65 3b 0d 0a 76 61 72 | 20 73 74 72 69 6e 67 09 |pe;..var| string.|
|00000530| 09 09 09 47 61 6d 65 4d | 6f 64 65 3b 0d 0a 76 61 |...GameM|ode;..va|
|00000540| 72 20 69 6e 74 09 09 09 | 09 09 4e 75 6d 50 6c 61 |r int...|..NumPla|
|00000550| 79 65 72 73 3b 0d 0a 76 | 61 72 20 69 6e 74 09 09 |yers;..v|ar int..|
|00000560| 09 09 09 4d 61 78 50 6c | 61 79 65 72 73 3b 0d 0a |...MaxPl|ayers;..|
|00000570| 76 61 72 20 69 6e 74 09 | 09 09 09 09 47 61 6d 65 |var int.|....Game|
|00000580| 56 65 72 3b 0d 0a 76 61 | 72 20 69 6e 74 09 09 09 |Ver;..va|r int...|
|00000590| 09 09 4d 69 6e 4e 65 74 | 56 65 72 3b 0d 0a 0d 0a |..MinNet|Ver;....|
|000005a0| 66 75 6e 63 74 69 6f 6e | 20 44 65 73 74 72 6f 79 |function| Destroy|
|000005b0| 4c 69 73 74 49 74 65 6d | 28 29 20 0d 0a 7b 0d 0a |ListItem|() ..{..|
|000005c0| 09 4f 77 6e 65 72 20 3d | 20 4e 6f 6e 65 3b 0d 0a |.Owner =| None;..|
|000005d0| 0d 0a 09 69 66 28 53 65 | 72 76 65 72 50 69 6e 67 |...if(Se|rverPing|
|000005e0| 20 21 3d 20 4e 6f 6e 65 | 29 0d 0a 09 7b 0d 0a 09 | != None|)...{...|
|000005f0| 09 53 65 72 76 65 72 50 | 69 6e 67 2e 44 65 73 74 |.ServerP|ing.Dest|
|00000600| 72 6f 79 28 29 3b 0d 0a | 09 09 53 65 72 76 65 72 |roy();..|..Server|
|00000610| 50 69 6e 67 20 3d 20 4e | 6f 6e 65 3b 0d 0a 09 7d |Ping = N|one;...}|
|00000620| 0d 0a 09 53 75 70 65 72 | 2e 44 65 73 74 72 6f 79 |...Super|.Destroy|
|00000630| 4c 69 73 74 49 74 65 6d | 28 29 3b 0d 0a 7d 0d 0a |ListItem|();..}..|
|00000640| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 51 75 65 72 79 |..functi|on Query|
|00000650| 46 69 6e 69 73 68 65 64 | 28 55 42 72 6f 77 73 65 |Finished|(UBrowse|
|00000660| 72 53 65 72 76 65 72 4c | 69 73 74 46 61 63 74 6f |rServerL|istFacto|
|00000670| 72 79 20 46 61 63 74 2c | 20 62 6f 6f 6c 20 62 53 |ry Fact,| bool bS|
|00000680| 75 63 63 65 73 73 2c 20 | 6f 70 74 69 6f 6e 61 6c |uccess, |optional|
|00000690| 20 73 74 72 69 6e 67 20 | 45 72 72 6f 72 4d 73 67 | string |ErrorMsg|
|000006a0| 29 0d 0a 7b 0d 0a 09 4f | 77 6e 65 72 2e 51 75 65 |)..{...O|wner.Que|
|000006b0| 72 79 46 69 6e 69 73 68 | 65 64 28 46 61 63 74 2c |ryFinish|ed(Fact,|
|000006c0| 20 62 53 75 63 63 65 73 | 73 2c 20 45 72 72 6f 72 | bSucces|s, Error|
|000006d0| 4d 73 67 29 3b 0d 0a 7d | 0d 0a 0d 0a 2f 2f 20 46 |Msg);..}|....// F|
|000006e0| 75 6e 63 74 69 6f 6e 73 | 20 66 6f 72 20 73 65 72 |unctions| for ser|
|000006f0| 76 65 72 20 6c 69 73 74 | 20 65 6e 74 72 69 65 73 |ver list| entries|
|00000700| 20 6f 6e 6c 79 2e 0d 0a | 66 75 6e 63 74 69 6f 6e | only...|function|
|00000710| 20 50 69 6e 67 53 65 72 | 76 65 72 28 62 6f 6f 6c | PingSer|ver(bool|
|00000720| 20 62 49 6e 69 74 69 61 | 6c 2c 20 62 6f 6f 6c 20 | bInitia|l, bool |
|00000730| 62 4a 75 73 74 54 68 69 | 73 53 65 72 76 65 72 2c |bJustThi|sServer,|
|00000740| 20 62 6f 6f 6c 20 62 4e | 6f 53 6f 72 74 29 0d 0a | bool bN|oSort)..|
|00000750| 7b 0d 0a 09 2f 2f 20 43 | 72 65 61 74 65 20 74 68 |{...// C|reate th|
|00000760| 65 20 55 64 70 4c 69 6e | 6b 20 74 6f 20 70 69 6e |e UdpLin|k to pin|
|00000770| 67 20 74 68 65 20 73 65 | 72 76 65 72 0d 0a 09 53 |g the se|rver...S|
|00000780| 65 72 76 65 72 50 69 6e | 67 20 3d 20 47 65 74 50 |erverPin|g = GetP|
|00000790| 6c 61 79 65 72 4f 77 6e | 65 72 28 29 2e 47 65 74 |layerOwn|er().Get|
|000007a0| 45 6e 74 72 79 4c 65 76 | 65 6c 28 29 2e 53 70 61 |EntryLev|el().Spa|
|000007b0| 77 6e 28 63 6c 61 73 73 | 27 55 42 72 6f 77 73 65 |wn(class|'UBrowse|
|000007c0| 72 53 65 72 76 65 72 50 | 69 6e 67 27 29 3b 0d 0a |rServerP|ing');..|
|000007d0| 09 53 65 72 76 65 72 50 | 69 6e 67 2e 53 65 72 76 |.ServerP|ing.Serv|
|000007e0| 65 72 20 3d 20 53 65 6c | 66 3b 0d 0a 09 53 65 72 |er = Sel|f;...Ser|
|000007f0| 76 65 72 50 69 6e 67 2e | 53 74 61 72 74 51 75 65 |verPing.|StartQue|
|00000800| 72 79 28 27 47 65 74 49 | 6e 66 6f 27 2c 20 32 29 |ry('GetI|nfo', 2)|
|00000810| 3b 0d 0a 09 53 65 72 76 | 65 72 50 69 6e 67 2e 62 |;...Serv|erPing.b|
|00000820| 49 6e 69 74 69 61 6c 20 | 3d 20 62 49 6e 69 74 69 |Initial |= bIniti|
|00000830| 61 6c 3b 0d 0a 09 53 65 | 72 76 65 72 50 69 6e 67 |al;...Se|rverPing|
|00000840| 2e 62 4a 75 73 74 54 68 | 69 73 53 65 72 76 65 72 |.bJustTh|isServer|
|00000850| 20 3d 20 62 4a 75 73 74 | 54 68 69 73 53 65 72 76 | = bJust|ThisServ|
|00000860| 65 72 3b 0d 0a 09 53 65 | 72 76 65 72 50 69 6e 67 |er;...Se|rverPing|
|00000870| 2e 62 4e 6f 53 6f 72 74 | 20 3d 20 62 4e 6f 53 6f |.bNoSort| = bNoSo|
|00000880| 72 74 3b 0d 0a 09 62 50 | 69 6e 67 69 6e 67 20 3d |rt;...bP|inging =|
|00000890| 20 54 72 75 65 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e | True;..|}....fun|
|000008a0| 63 74 69 6f 6e 20 53 65 | 72 76 65 72 53 74 61 74 |ction Se|rverStat|
|000008b0| 75 73 28 29 0d 0a 7b 0d | 0a 09 2f 2f 20 43 72 65 |us()..{.|..// Cre|
|000008c0| 61 74 65 20 74 68 65 20 | 55 64 70 4c 69 6e 6b 20 |ate the |UdpLink |
|000008d0| 74 6f 20 70 69 6e 67 20 | 74 68 65 20 73 65 72 76 |to ping |the serv|
|000008e0| 65 72 0d 0a 09 53 65 72 | 76 65 72 50 69 6e 67 20 |er...Ser|verPing |
|000008f0| 3d 20 47 65 74 50 6c 61 | 79 65 72 4f 77 6e 65 72 |= GetPla|yerOwner|
|00000900| 28 29 2e 47 65 74 45 6e | 74 72 79 4c 65 76 65 6c |().GetEn|tryLevel|
|00000910| 28 29 2e 53 70 61 77 6e | 28 63 6c 61 73 73 27 55 |().Spawn|(class'U|
|00000920| 42 72 6f 77 73 65 72 53 | 65 72 76 65 72 50 69 6e |BrowserS|erverPin|
|00000930| 67 27 29 3b 0d 0a 09 53 | 65 72 76 65 72 50 69 6e |g');...S|erverPin|
|00000940| 67 2e 53 65 72 76 65 72 | 20 3d 20 53 65 6c 66 3b |g.Server| = Self;|
|00000950| 0d 0a 09 53 65 72 76 65 | 72 50 69 6e 67 2e 53 74 |...Serve|rPing.St|
|00000960| 61 72 74 51 75 65 72 79 | 28 27 47 65 74 53 74 61 |artQuery|('GetSta|
|00000970| 74 75 73 27 2c 20 32 29 | 3b 0d 0a 09 62 50 69 6e |tus', 2)|;...bPin|
|00000980| 67 69 6e 67 20 3d 20 54 | 72 75 65 3b 0d 0a 7d 0d |ging = T|rue;..}.|
|00000990| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 53 74 61 74 |...funct|ion Stat|
|000009a0| 75 73 44 6f 6e 65 28 62 | 6f 6f 6c 20 62 53 75 63 |usDone(b|ool bSuc|
|000009b0| 63 65 73 73 29 0d 0a 7b | 0d 0a 09 2f 2f 20 44 65 |cess)..{|...// De|
|000009c0| 73 74 72 6f 79 20 74 68 | 65 20 55 64 70 4c 69 6e |stroy th|e UdpLin|
|000009d0| 6b 0d 0a 09 53 65 72 76 | 65 72 50 69 6e 67 2e 44 |k...Serv|erPing.D|
|000009e0| 65 73 74 72 6f 79 28 29 | 3b 0d 0a 09 53 65 72 76 |estroy()|;...Serv|
|000009f0| 65 72 50 69 6e 67 20 3d | 20 4e 6f 6e 65 3b 0d 0a |erPing =| None;..|
|00000a00| 0d 0a 09 62 50 69 6e 67 | 69 6e 67 20 3d 20 46 61 |...bPing|ing = Fa|
|00000a10| 6c 73 65 3b 0d 0a 0d 0a | 09 52 75 6c 65 73 4c 69 |lse;....|.RulesLi|
|00000a20| 73 74 2e 53 6f 72 74 28 | 29 3b 0d 0a 09 50 6c 61 |st.Sort(|);...Pla|
|00000a30| 79 65 72 4c 69 73 74 2e | 53 6f 72 74 28 29 3b 0d |yerList.|Sort();.|
|00000a40| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 43 |.}....fu|nction C|
|00000a50| 61 6e 63 65 6c 50 69 6e | 67 28 29 0d 0a 7b 0d 0a |ancelPin|g()..{..|
|00000a60| 09 69 66 28 62 50 69 6e | 67 69 6e 67 20 26 26 20 |.if(bPin|ging && |
|00000a70| 53 65 72 76 65 72 50 69 | 6e 67 20 21 3d 20 4e 6f |ServerPi|ng != No|
|00000a80| 6e 65 20 26 26 20 53 65 | 72 76 65 72 50 69 6e 67 |ne && Se|rverPing|
|00000a90| 2e 62 4a 75 73 74 54 68 | 69 73 53 65 72 76 65 72 |.bJustTh|isServer|
|00000aa0| 29 0d 0a 09 09 50 69 6e | 67 44 6f 6e 65 28 46 61 |)....Pin|gDone(Fa|
|00000ab0| 6c 73 65 2c 20 54 72 75 | 65 2c 20 46 61 6c 73 65 |lse, Tru|e, False|
|00000ac0| 2c 20 54 72 75 65 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |, True);|..}....f|
|00000ad0| 75 6e 63 74 69 6f 6e 20 | 50 69 6e 67 44 6f 6e 65 |unction |PingDone|
|00000ae0| 28 62 6f 6f 6c 20 62 49 | 6e 69 74 69 61 6c 2c 20 |(bool bI|nitial, |
|00000af0| 62 6f 6f 6c 20 62 4a 75 | 73 74 54 68 69 73 53 65 |bool bJu|stThisSe|
|00000b00| 72 76 65 72 2c 20 62 6f | 6f 6c 20 62 53 75 63 63 |rver, bo|ol bSucc|
|00000b10| 65 73 73 2c 20 62 6f 6f | 6c 20 62 4e 6f 53 6f 72 |ess, boo|l bNoSor|
|00000b20| 74 29 0d 0a 7b 0d 0a 09 | 6c 6f 63 61 6c 20 55 42 |t)..{...|local UB|
|00000b30| 72 6f 77 73 65 72 53 65 | 72 76 65 72 4c 69 73 74 |rowserSe|rverList|
|00000b40| 57 69 6e 64 6f 77 20 57 | 3b 0d 0a 09 6c 6f 63 61 |Window W|;...loca|
|00000b50| 6c 20 55 42 72 6f 77 73 | 65 72 53 65 72 76 65 72 |l UBrows|erServer|
|00000b60| 4c 69 73 74 20 4f 6c 64 | 53 65 6e 74 69 6e 65 6c |List Old|Sentinel|
|00000b70| 3b 0d 0a 0d 0a 09 2f 2f | 20 44 65 73 74 72 6f 79 |;.....//| Destroy|
|00000b80| 20 74 68 65 20 55 64 70 | 4c 69 6e 6b 0d 0a 09 69 | the Udp|Link...i|
|00000b90| 66 28 53 65 72 76 65 72 | 50 69 6e 67 20 21 3d 20 |f(Server|Ping != |
|00000ba0| 4e 6f 6e 65 29 0d 0a 09 | 09 53 65 72 76 65 72 50 |None)...|.ServerP|
|00000bb0| 69 6e 67 2e 44 65 73 74 | 72 6f 79 28 29 3b 0d 0a |ing.Dest|roy();..|
|00000bc0| 09 0d 0a 09 53 65 72 76 | 65 72 50 69 6e 67 20 3d |....Serv|erPing =|
|00000bd0| 20 4e 6f 6e 65 3b 0d 0a | 0d 0a 09 62 50 69 6e 67 | None;..|...bPing|
|00000be0| 69 6e 67 20 3d 20 46 61 | 6c 73 65 3b 0d 0a 09 62 |ing = Fa|lse;...b|
|00000bf0| 50 69 6e 67 46 61 69 6c | 65 64 20 3d 20 21 62 53 |PingFail|ed = !bS|
|00000c00| 75 63 63 65 73 73 3b 0d | 0a 09 62 50 69 6e 67 65 |uccess;.|..bPinge|
|00000c10| 64 20 3d 20 54 72 75 65 | 3b 0d 0a 0d 0a 09 4f 6c |d = True|;.....Ol|
|00000c20| 64 53 65 6e 74 69 6e 65 | 6c 20 3d 20 55 42 72 6f |dSentine|l = UBro|
|00000c30| 77 73 65 72 53 65 72 76 | 65 72 4c 69 73 74 28 53 |wserServ|erList(S|
|00000c40| 65 6e 74 69 6e 65 6c 29 | 3b 0d 0a 09 69 66 28 21 |entinel)|;...if(!|
|00000c50| 62 4e 6f 53 6f 72 74 29 | 0d 0a 09 7b 0d 0a 09 09 |bNoSort)|...{....|
|00000c60| 52 65 6d 6f 76 65 28 29 | 3b 0d 0a 0d 0a 09 09 2f |Remove()|;....../|
|00000c70| 2f 20 4d 6f 76 65 20 74 | 6f 20 74 68 65 20 70 69 |/ Move t|o the pi|
|00000c80| 6e 67 20 6c 69 73 74 0d | 0a 09 09 69 66 28 21 62 |ng list.|...if(!b|
|00000c90| 50 69 6e 67 46 61 69 6c | 65 64 20 7c 7c 20 28 4f |PingFail|ed || (O|
|00000ca0| 6c 64 53 65 6e 74 69 6e | 65 6c 20 21 3d 20 4e 6f |ldSentin|el != No|
|00000cb0| 6e 65 20 26 26 20 4f 6c | 64 53 65 6e 74 69 6e 65 |ne && Ol|dSentine|
|00000cc0| 6c 2e 4f 77 6e 65 72 20 | 21 3d 20 4e 6f 6e 65 20 |l.Owner |!= None |
|00000cd0| 26 26 20 4f 6c 64 53 65 | 6e 74 69 6e 65 6c 2e 4f |&& OldSe|ntinel.O|
|00000ce0| 77 6e 65 72 2e 62 53 68 | 6f 77 46 61 69 6c 65 64 |wner.bSh|owFailed|
|00000cf0| 53 65 72 76 65 72 73 29 | 29 0d 0a 09 09 7b 0d 0a |Servers)|)....{..|
|00000d00| 09 09 09 69 66 28 4f 6c | 64 53 65 6e 74 69 6e 65 |...if(Ol|dSentine|
|00000d10| 6c 2e 4f 77 6e 65 72 2e | 50 69 6e 67 65 64 4c 69 |l.Owner.|PingedLi|
|00000d20| 73 74 20 21 3d 20 4e 6f | 6e 65 29 0d 0a 09 09 09 |st != No|ne).....|
|00000d30| 09 4f 6c 64 53 65 6e 74 | 69 6e 65 6c 2e 4f 77 6e |.OldSent|inel.Own|
|00000d40| 65 72 2e 50 69 6e 67 65 | 64 4c 69 73 74 2e 41 70 |er.Pinge|dList.Ap|
|00000d50| 70 65 6e 64 49 74 65 6d | 28 53 65 6c 66 29 3b 0d |pendItem|(Self);.|
|00000d60| 0a 09 09 7d 0d 0a 09 7d | 0d 0a 09 65 6c 73 65 0d |...}...}|...else.|
|00000d70| 0a 09 7b 0d 0a 09 09 69 | 66 28 4f 6c 64 53 65 6e |..{....i|f(OldSen|
|00000d80| 74 69 6e 65 6c 20 21 3d | 20 4e 6f 6e 65 20 26 26 |tinel !=| None &&|
|00000d90| 20 4f 6c 64 53 65 6e 74 | 69 6e 65 6c 2e 4f 77 6e | OldSent|inel.Own|
|00000da0| 65 72 20 21 3d 20 4e 6f | 6e 65 20 26 26 20 4f 6c |er != No|ne && Ol|
|00000db0| 64 53 65 6e 74 69 6e 65 | 6c 20 21 3d 20 4f 6c 64 |dSentine|l != Old|
|00000dc0| 53 65 6e 74 69 6e 65 6c | 2e 4f 77 6e 65 72 2e 50 |Sentinel|.Owner.P|
|00000dd0| 69 6e 67 65 64 4c 69 73 | 74 29 0d 0a 09 09 09 4c |ingedLis|t).....L|
|00000de0| 6f 67 28 22 55 6e 73 6f | 72 74 65 64 20 50 69 6e |og("Unso|rted Pin|
|00000df0| 67 44 6f 6e 65 20 6c 6f | 73 74 20 61 73 20 69 74 |gDone lo|st as it|
|00000e00| 27 73 20 6e 6f 74 20 69 | 6e 20 70 69 6e 67 20 6c |'s not i|n ping l|
|00000e10| 69 73 74 21 22 29 3b 0d | 0a 09 7d 0d 0a 0d 0a 09 |ist!");.|..}.....|
|00000e20| 69 66 28 53 65 6e 74 69 | 6e 65 6c 20 21 3d 20 4e |if(Senti|nel != N|
|00000e30| 6f 6e 65 29 0d 0a 09 7b | 0d 0a 09 09 55 42 72 6f |one)...{|....UBro|
|00000e40| 77 73 65 72 53 65 72 76 | 65 72 4c 69 73 74 28 53 |wserServ|erList(S|
|00000e50| 65 6e 74 69 6e 65 6c 29 | 2e 62 4e 65 65 64 55 70 |entinel)|.bNeedUp|
|00000e60| 64 61 74 65 43 6f 75 6e | 74 20 3d 20 54 72 75 65 |dateCoun|t = True|
|00000e70| 3b 0d 0a 0d 0a 09 09 69 | 66 28 62 49 6e 69 74 69 |;......i|f(bIniti|
|00000e80| 61 6c 29 0d 0a 09 09 09 | 43 6f 6e 73 69 64 65 72 |al).....|Consider|
|00000e90| 46 6f 72 53 75 62 73 65 | 74 73 28 29 3b 0d 0a 09 |ForSubse|ts();...|
|00000ea0| 7d 0d 0a 0d 0a 09 69 66 | 28 21 62 4a 75 73 74 54 |}.....if|(!bJustT|
|00000eb0| 68 69 73 53 65 72 76 65 | 72 29 0d 0a 09 09 69 66 |hisServe|r)....if|
|00000ec0| 28 4f 6c 64 53 65 6e 74 | 69 6e 65 6c 20 21 3d 20 |(OldSent|inel != |
|00000ed0| 4e 6f 6e 65 29 0d 0a 09 | 09 7b 0d 0a 09 09 09 57 |None)...|.{.....W|
|00000ee0| 20 3d 20 4f 6c 64 53 65 | 6e 74 69 6e 65 6c 2e 4f | = OldSe|ntinel.O|
|00000ef0| 77 6e 65 72 3b 0d 0a 0d | 0a 09 09 09 69 66 28 57 |wner;...|....if(W|
|00000f00| 2e 62 50 69 6e 67 53 75 | 73 70 65 6e 64 29 0d 0a |.bPingSu|spend)..|
|00000f10| 09 09 09 7b 0d 0a 09 09 | 09 09 57 2e 62 50 69 6e |...{....|..W.bPin|
|00000f20| 67 52 65 73 75 6d 65 20 | 3d 20 54 72 75 65 3b 0d |gResume |= True;.|
|00000f30| 0a 09 09 09 09 57 2e 62 | 50 69 6e 67 52 65 73 75 |.....W.b|PingResu|
|00000f40| 6d 65 49 6e 74 69 61 6c | 20 3d 20 62 49 6e 69 74 |meIntial| = bInit|
|00000f50| 69 61 6c 3b 0d 0a 09 09 | 09 7d 0d 0a 09 09 09 65 |ial;....|.}.....e|
|00000f60| 6c 73 65 0d 0a 09 09 09 | 09 4f 6c 64 53 65 6e 74 |lse.....|.OldSent|
|00000f70| 69 6e 65 6c 2e 50 69 6e | 67 4e 65 78 74 28 62 49 |inel.Pin|gNext(bI|
|00000f80| 6e 69 74 69 61 6c 2c 20 | 62 4e 6f 53 6f 72 74 29 |nitial, |bNoSort)|
|00000f90| 3b 0d 0a 09 09 7d 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |;....}..|}....fun|
|00000fa0| 63 74 69 6f 6e 20 43 6f | 6e 73 69 64 65 72 46 6f |ction Co|nsiderFo|
|00000fb0| 72 53 75 62 73 65 74 73 | 28 29 0d 0a 7b 0d 0a 09 |rSubsets|()..{...|
|00000fc0| 6c 6f 63 61 6c 20 55 42 | 72 6f 77 73 65 72 53 75 |local UB|rowserSu|
|00000fd0| 62 73 65 74 4c 69 73 74 | 20 6c 3b 0d 0a 0d 0a 09 |bsetList| l;.....|
|00000fe0| 66 6f 72 28 6c 20 3d 20 | 55 42 72 6f 77 73 65 72 |for(l = |UBrowser|
|00000ff0| 53 75 62 73 65 74 4c 69 | 73 74 28 55 42 72 6f 77 |SubsetLi|st(UBrow|
|00001000| 73 65 72 53 65 72 76 65 | 72 4c 69 73 74 28 53 65 |serServe|rList(Se|
|00001010| 6e 74 69 6e 65 6c 29 2e | 4f 77 6e 65 72 2e 53 75 |ntinel).|Owner.Su|
|00001020| 62 73 65 74 4c 69 73 74 | 2e 4e 65 78 74 29 3b 20 |bsetList|.Next); |
|00001030| 6c 20 21 3d 20 4e 6f 6e | 65 3b 20 6c 20 3d 20 55 |l != Non|e; l = U|
|00001040| 42 72 6f 77 73 65 72 53 | 75 62 73 65 74 4c 69 73 |BrowserS|ubsetLis|
|00001050| 74 28 6c 2e 4e 65 78 74 | 29 29 0d 0a 09 7b 0d 0a |t(l.Next|))...{..|
|00001060| 09 09 6c 2e 53 75 62 73 | 65 74 46 61 63 74 6f 72 |..l.Subs|etFactor|
|00001070| 79 2e 43 6f 6e 73 69 64 | 65 72 49 74 65 6d 28 53 |y.Consid|erItem(S|
|00001080| 65 6c 66 29 3b 0d 0a 09 | 7d 0d 0a 7d 0d 0a 0d 0a |elf);...|}..}....|
|00001090| 2f 2f 20 46 75 6e 63 74 | 69 6f 6e 73 20 66 6f 72 |// Funct|ions for|
|000010a0| 20 73 65 6e 74 69 6e 65 | 6c 20 6f 6e 6c 79 0d 0a | sentine|l only..|
|000010b0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 49 6e 76 61 6c |..functi|on Inval|
|000010c0| 69 64 61 74 65 50 69 6e | 67 73 28 29 0d 0a 7b 0d |idatePin|gs()..{.|
|000010d0| 0a 09 6c 6f 63 61 6c 20 | 55 42 72 6f 77 73 65 72 |..local |UBrowser|
|000010e0| 53 65 72 76 65 72 4c 69 | 73 74 20 6c 3b 0d 0a 0d |ServerLi|st l;...|
|000010f0| 0a 09 66 6f 72 28 6c 20 | 3d 20 55 42 72 6f 77 73 |..for(l |= UBrows|
|00001100| 65 72 53 65 72 76 65 72 | 4c 69 73 74 28 4e 65 78 |erServer|List(Nex|
|00001110| 74 29 3b 6c 20 21 3d 20 | 4e 6f 6e 65 3b 6c 20 3d |t);l != |None;l =|
|00001120| 20 55 42 72 6f 77 73 65 | 72 53 65 72 76 65 72 4c | UBrowse|rServerL|
|00001130| 69 73 74 28 6c 2e 4e 65 | 78 74 29 29 20 0d 0a 09 |ist(l.Ne|xt)) ...|
|00001140| 09 6c 2e 50 69 6e 67 20 | 3d 20 39 39 39 39 3b 0d |.l.Ping |= 9999;.|
|00001150| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 50 |.}....fu|nction P|
|00001160| 69 6e 67 53 65 72 76 65 | 72 73 28 62 6f 6f 6c 20 |ingServe|rs(bool |
|00001170| 62 49 6e 69 74 69 61 6c | 2c 20 62 6f 6f 6c 20 62 |bInitial|, bool b|
|00001180| 4e 6f 53 6f 72 74 29 0d | 0a 7b 0d 0a 09 6c 6f 63 |NoSort).|.{...loc|
|00001190| 61 6c 20 55 42 72 6f 77 | 73 65 72 53 65 72 76 65 |al UBrow|serServe|
|000011a0| 72 4c 69 73 74 20 6c 3b | 0d 0a 09 0d 0a 09 62 50 |rList l;|......bP|
|000011b0| 69 6e 67 69 6e 67 20 3d | 20 46 61 6c 73 65 3b 0d |inging =| False;.|
|000011c0| 0a 0d 0a 09 66 6f 72 28 | 6c 20 3d 20 55 42 72 6f |....for(|l = UBro|
|000011d0| 77 73 65 72 53 65 72 76 | 65 72 4c 69 73 74 28 4e |wserServ|erList(N|
|000011e0| 65 78 74 29 3b 6c 20 21 | 3d 20 4e 6f 6e 65 3b 6c |ext);l !|= None;l|
|000011f0| 20 3d 20 55 42 72 6f 77 | 73 65 72 53 65 72 76 65 | = UBrow|serServe|
|00001200| 72 4c 69 73 74 28 6c 2e | 4e 65 78 74 29 29 20 0d |rList(l.|Next)) .|
|00001210| 0a 09 7b 0d 0a 09 09 6c | 2e 62 50 69 6e 67 69 6e |..{....l|.bPingin|
|00001220| 67 20 3d 20 46 61 6c 73 | 65 3b 0d 0a 09 09 6c 2e |g = Fals|e;....l.|
|00001230| 62 50 69 6e 67 46 61 69 | 6c 65 64 20 3d 20 46 61 |bPingFai|led = Fa|
|00001240| 6c 73 65 3b 0d 0a 09 09 | 6c 2e 62 50 69 6e 67 65 |lse;....|l.bPinge|
|00001250| 64 20 3d 20 46 61 6c 73 | 65 3b 0d 0a 09 7d 0d 0a |d = Fals|e;...}..|
|00001260| 0d 0a 09 50 69 6e 67 4e | 65 78 74 28 62 49 6e 69 |...PingN|ext(bIni|
|00001270| 74 69 61 6c 2c 20 62 4e | 6f 53 6f 72 74 29 3b 0d |tial, bN|oSort);.|
|00001280| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 50 |.}....fu|nction P|
|00001290| 69 6e 67 4e 65 78 74 28 | 62 6f 6f 6c 20 62 49 6e |ingNext(|bool bIn|
|000012a0| 69 74 69 61 6c 2c 20 62 | 6f 6f 6c 20 62 4e 6f 53 |itial, b|ool bNoS|
|000012b0| 6f 72 74 29 0d 0a 7b 0d | 0a 09 6c 6f 63 61 6c 20 |ort)..{.|..local |
|000012c0| 69 6e 74 20 54 6f 74 61 | 6c 50 69 6e 67 69 6e 67 |int Tota|lPinging|
|000012d0| 3b 0d 0a 09 6c 6f 63 61 | 6c 20 55 42 72 6f 77 73 |;...loca|l UBrows|
|000012e0| 65 72 53 65 72 76 65 72 | 4c 69 73 74 20 6c 3b 0d |erServer|List l;.|
|000012f0| 0a 09 6c 6f 63 61 6c 20 | 62 6f 6f 6c 20 62 44 6f |..local |bool bDo|
|00001300| 6e 65 3b 0d 0a 09 0d 0a | 09 54 6f 74 61 6c 50 69 |ne;.....|.TotalPi|
|00001310| 6e 67 69 6e 67 20 3d 20 | 30 3b 0d 0a 09 0d 0a 09 |nging = |0;......|
|00001320| 62 44 6f 6e 65 20 3d 20 | 54 72 75 65 3b 0d 0a 09 |bDone = |True;...|
|00001330| 66 6f 72 28 6c 20 3d 20 | 55 42 72 6f 77 73 65 72 |for(l = |UBrowser|
|00001340| 53 65 72 76 65 72 4c 69 | 73 74 28 4e 65 78 74 29 |ServerLi|st(Next)|
|00001350| 3b 6c 20 21 3d 20 4e 6f | 6e 65 3b 6c 20 3d 20 55 |;l != No|ne;l = U|
|00001360| 42 72 6f 77 73 65 72 53 | 65 72 76 65 72 4c 69 73 |BrowserS|erverLis|
|00001370| 74 28 6c 2e 4e 65 78 74 | 29 29 20 0d 0a 09 7b 0d |t(l.Next|)) ...{.|
|00001380| 0a 09 09 69 66 28 21 6c | 2e 62 50 69 6e 67 65 64 |...if(!l|.bPinged|
|00001390| 29 0d 0a 09 09 09 62 44 | 6f 6e 65 20 3d 20 46 61 |).....bD|one = Fa|
|000013a0| 6c 73 65 3b 0d 0a 09 09 | 69 66 28 6c 2e 62 50 69 |lse;....|if(l.bPi|
|000013b0| 6e 67 69 6e 67 29 0d 0a | 09 09 09 54 6f 74 61 6c |nging)..|...Total|
|000013c0| 50 69 6e 67 69 6e 67 20 | 2b 2b 3b 0d 0a 09 7d 0d |Pinging |++;...}.|
|000013d0| 0a 09 0d 0a 09 69 66 28 | 62 44 6f 6e 65 20 26 26 |.....if(|bDone &&|
|000013e0| 20 4f 77 6e 65 72 20 21 | 3d 20 4e 6f 6e 65 29 0d | Owner !|= None).|
|000013f0| 0a 09 7b 0d 0a 09 09 62 | 50 69 6e 67 69 6e 67 20 |..{....b|Pinging |
|00001400| 3d 20 46 61 6c 73 65 3b | 0d 0a 09 09 4f 77 6e 65 |= False;|....Owne|
|00001410| 72 2e 50 69 6e 67 46 69 | 6e 69 73 68 65 64 28 29 |r.PingFi|nished()|
|00001420| 3b 0d 0a 09 7d 0d 0a 09 | 65 6c 73 65 0d 0a 09 69 |;...}...|else...i|
|00001430| 66 28 54 6f 74 61 6c 50 | 69 6e 67 69 6e 67 20 3c |f(TotalP|inging <|
|00001440| 20 4d 61 78 53 69 6d 75 | 6c 74 61 6e 65 6f 75 73 | MaxSimu|ltaneous|
|00001450| 50 69 6e 67 29 0d 0a 09 | 7b 0d 0a 09 09 66 6f 72 |Ping)...|{....for|
|00001460| 28 6c 20 3d 20 55 42 72 | 6f 77 73 65 72 53 65 72 |(l = UBr|owserSer|
|00001470| 76 65 72 4c 69 73 74 28 | 4e 65 78 74 29 3b 6c 20 |verList(|Next);l |
|00001480| 21 3d 20 4e 6f 6e 65 3b | 6c 20 3d 20 55 42 72 6f |!= None;|l = UBro|
|00001490| 77 73 65 72 53 65 72 76 | 65 72 4c 69 73 74 28 6c |wserServ|erList(l|
|000014a0| 2e 4e 65 78 74 29 29 0d | 0a 09 09 7b 0d 0a 09 09 |.Next)).|...{....|
|000014b0| 09 69 66 28 09 09 21 6c | 2e 62 50 69 6e 67 69 6e |.if(..!l|.bPingin|
|000014c0| 67 20 0d 0a 09 09 09 09 | 26 26 09 21 6c 2e 62 50 |g ......|&&.!l.bP|
|000014d0| 69 6e 67 65 64 20 0d 0a | 09 09 09 09 26 26 09 28 |inged ..|....&&.(|
|000014e0| 21 62 49 6e 69 74 69 61 | 6c 20 7c 7c 20 21 6c 2e |!bInitia|l || !l.|
|000014f0| 62 4e 6f 49 6e 69 74 61 | 6c 50 69 6e 67 29 0d 0a |bNoInita|lPing)..|
|00001500| 09 09 09 09 26 26 09 54 | 6f 74 61 6c 50 69 6e 67 |....&&.T|otalPing|
|00001510| 69 6e 67 20 3c 20 4d 61 | 78 53 69 6d 75 6c 74 61 |ing < Ma|xSimulta|
|00001520| 6e 65 6f 75 73 50 69 6e | 67 0d 0a 09 09 09 29 0d |neousPin|g.....).|
|00001530| 0a 09 09 09 7b 0d 0a 09 | 09 09 09 54 6f 74 61 6c |....{...|...Total|
|00001540| 50 69 6e 67 69 6e 67 20 | 2b 2b 3b 09 09 0d 0a 09 |Pinging |++;.....|
|00001550| 09 09 09 6c 2e 50 69 6e | 67 53 65 72 76 65 72 28 |...l.Pin|gServer(|
|00001560| 62 49 6e 69 74 69 61 6c | 2c 20 46 61 6c 73 65 2c |bInitial|, False,|
|00001570| 20 62 4e 6f 53 6f 72 74 | 29 3b 0d 0a 09 09 09 7d | bNoSort|);.....}|
|00001580| 0d 0a 0d 0a 09 09 09 69 | 66 28 54 6f 74 61 6c 50 |.......i|f(TotalP|
|00001590| 69 6e 67 69 6e 67 20 3e | 3d 20 4d 61 78 53 69 6d |inging >|= MaxSim|
|000015a0| 75 6c 74 61 6e 65 6f 75 | 73 50 69 6e 67 29 0d 0a |ultaneou|sPing)..|
|000015b0| 09 09 09 09 62 72 65 61 | 6b 3b 0d 0a 09 09 7d 0d |....brea|k;....}.|
|000015c0| 0a 09 7d 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |..}..}..|..functi|
|000015d0| 6f 6e 20 55 42 72 6f 77 | 73 65 72 53 65 72 76 65 |on UBrow|serServe|
|000015e0| 72 4c 69 73 74 20 46 69 | 6e 64 45 78 69 73 74 69 |rList Fi|ndExisti|
|000015f0| 6e 67 53 65 72 76 65 72 | 28 73 74 72 69 6e 67 20 |ngServer|(string |
|00001600| 46 69 6e 64 49 50 2c 20 | 69 6e 74 20 46 69 6e 64 |FindIP, |int Find|
|00001610| 51 75 65 72 79 50 6f 72 | 74 29 0d 0a 7b 0d 0a 09 |QueryPor|t)..{...|
|00001620| 6c 6f 63 61 6c 20 55 57 | 69 6e 64 6f 77 4c 69 73 |local UW|indowLis|
|00001630| 74 20 6c 3b 0d 0a 0d 0a | 09 66 6f 72 28 6c 20 3d |t l;....|.for(l =|
|00001640| 20 4e 65 78 74 3b 6c 20 | 21 3d 20 4e 6f 6e 65 3b | Next;l |!= None;|
|00001650| 6c 20 3d 20 6c 2e 4e 65 | 78 74 29 0d 0a 09 7b 0d |l = l.Ne|xt)...{.|
|00001660| 0a 09 09 69 66 28 55 42 | 72 6f 77 73 65 72 53 65 |...if(UB|rowserSe|
|00001670| 72 76 65 72 4c 69 73 74 | 28 6c 29 2e 49 50 20 3d |rverList|(l).IP =|
|00001680| 3d 20 46 69 6e 64 49 50 | 20 26 26 20 55 42 72 6f |= FindIP| && UBro|
|00001690| 77 73 65 72 53 65 72 76 | 65 72 4c 69 73 74 28 6c |wserServ|erList(l|
|000016a0| 29 2e 51 75 65 72 79 50 | 6f 72 74 20 3d 3d 20 46 |).QueryP|ort == F|
|000016b0| 69 6e 64 51 75 65 72 79 | 50 6f 72 74 29 0d 0a 09 |indQuery|Port)...|
|000016c0| 09 09 72 65 74 75 72 6e | 20 55 42 72 6f 77 73 65 |..return| UBrowse|
|000016d0| 72 53 65 72 76 65 72 4c | 69 73 74 28 6c 29 3b 0d |rServerL|ist(l);.|
|000016e0| 0a 09 7d 0d 0a 09 72 65 | 74 75 72 6e 20 4e 6f 6e |..}...re|turn Non|
|000016f0| 65 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |e;..}...|.functio|
|00001700| 6e 20 50 6c 61 79 65 72 | 50 61 77 6e 20 47 65 74 |n Player|Pawn Get|
|00001710| 50 6c 61 79 65 72 4f 77 | 6e 65 72 28 29 0d 0a 7b |PlayerOw|ner()..{|
|00001720| 0d 0a 09 72 65 74 75 72 | 6e 20 55 42 72 6f 77 73 |...retur|n UBrows|
|00001730| 65 72 53 65 72 76 65 72 | 4c 69 73 74 28 53 65 6e |erServer|List(Sen|
|00001740| 74 69 6e 65 6c 29 2e 4f | 77 6e 65 72 2e 47 65 74 |tinel).O|wner.Get|
|00001750| 50 6c 61 79 65 72 4f 77 | 6e 65 72 28 29 3b 0d 0a |PlayerOw|ner();..|
|00001760| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 55 57 |}....fun|ction UW|
|00001770| 69 6e 64 6f 77 4c 69 73 | 74 20 43 6f 70 79 45 78 |indowLis|t CopyEx|
|00001780| 69 73 74 69 6e 67 4c 69 | 73 74 49 74 65 6d 28 43 |istingLi|stItem(C|
|00001790| 6c 61 73 73 3c 55 57 69 | 6e 64 6f 77 4c 69 73 74 |lass<UWi|ndowList|
|000017a0| 3e 20 49 74 65 6d 43 6c | 61 73 73 2c 20 55 57 69 |> ItemCl|ass, UWi|
|000017b0| 6e 64 6f 77 4c 69 73 74 | 20 53 6f 75 72 63 65 49 |ndowList| SourceI|
|000017c0| 74 65 6d 29 0d 0a 7b 0d | 0a 09 6c 6f 63 61 6c 20 |tem)..{.|..local |
|000017d0| 55 42 72 6f 77 73 65 72 | 53 65 72 76 65 72 4c 69 |UBrowser|ServerLi|
|000017e0| 73 74 20 4c 3b 0d 0a 0d | 0a 09 4c 20 3d 20 55 42 |st L;...|..L = UB|
|000017f0| 72 6f 77 73 65 72 53 65 | 72 76 65 72 4c 69 73 74 |rowserSe|rverList|
|00001800| 28 53 75 70 65 72 2e 43 | 6f 70 79 45 78 69 73 74 |(Super.C|opyExist|
|00001810| 69 6e 67 4c 69 73 74 49 | 74 65 6d 28 49 74 65 6d |ingListI|tem(Item|
|00001820| 43 6c 61 73 73 2c 20 53 | 6f 75 72 63 65 49 74 65 |Class, S|ourceIte|
|00001830| 6d 29 29 3b 0d 0a 0d 0a | 09 4c 2e 62 4c 6f 63 61 |m));....|.L.bLoca|
|00001840| 6c 53 65 72 76 65 72 09 | 3d 20 55 42 72 6f 77 73 |lServer.|= UBrows|
|00001850| 65 72 53 65 72 76 65 72 | 4c 69 73 74 28 53 6f 75 |erServer|List(Sou|
|00001860| 72 63 65 49 74 65 6d 29 | 2e 62 4c 6f 63 61 6c 53 |rceItem)|.bLocalS|
|00001870| 65 72 76 65 72 3b 0d 0a | 09 4c 2e 49 50 09 09 09 |erver;..|.L.IP...|
|00001880| 3d 20 55 42 72 6f 77 73 | 65 72 53 65 72 76 65 72 |= UBrows|erServer|
|00001890| 4c 69 73 74 28 53 6f 75 | 72 63 65 49 74 65 6d 29 |List(Sou|rceItem)|
|000018a0| 2e 49 50 3b 0d 0a 09 4c | 2e 51 75 65 72 79 50 6f |.IP;...L|.QueryPo|
|000018b0| 72 74 09 09 3d 20 55 42 | 72 6f 77 73 65 72 53 65 |rt..= UB|rowserSe|
|000018c0| 72 76 65 72 4c 69 73 74 | 28 53 6f 75 72 63 65 49 |rverList|(SourceI|
|000018d0| 74 65 6d 29 2e 51 75 65 | 72 79 50 6f 72 74 3b 0d |tem).Que|ryPort;.|
|000018e0| 0a 09 4c 2e 50 69 6e 67 | 09 09 09 3d 20 55 42 72 |..L.Ping|...= UBr|
|000018f0| 6f 77 73 65 72 53 65 72 | 76 65 72 4c 69 73 74 28 |owserSer|verList(|
|00001900| 53 6f 75 72 63 65 49 74 | 65 6d 29 2e 50 69 6e 67 |SourceIt|em).Ping|
|00001910| 3b 0d 0a 09 4c 2e 48 6f | 73 74 4e 61 6d 65 09 09 |;...L.Ho|stName..|
|00001920| 3d 20 55 42 72 6f 77 73 | 65 72 53 65 72 76 65 72 |= UBrows|erServer|
|00001930| 4c 69 73 74 28 53 6f 75 | 72 63 65 49 74 65 6d 29 |List(Sou|rceItem)|
|00001940| 2e 48 6f 73 74 4e 61 6d | 65 3b 0d 0a 09 4c 2e 47 |.HostNam|e;...L.G|
|00001950| 61 6d 65 50 6f 72 74 09 | 09 3d 20 55 42 72 6f 77 |amePort.|.= UBrow|
|00001960| 73 65 72 53 65 72 76 65 | 72 4c 69 73 74 28 53 6f |serServe|rList(So|
|00001970| 75 72 63 65 49 74 65 6d | 29 2e 47 61 6d 65 50 6f |urceItem|).GamePo|
|00001980| 72 74 3b 0d 0a 09 4c 2e | 4d 61 70 4e 61 6d 65 09 |rt;...L.|MapName.|
|00001990| 09 3d 20 55 42 72 6f 77 | 73 65 72 53 65 72 76 65 |.= UBrow|serServe|
|000019a0| 72 4c 69 73 74 28 53 6f | 75 72 63 65 49 74 65 6d |rList(So|urceItem|
|000019b0| 29 2e 4d 61 70 4e 61 6d | 65 3b 0d 0a 09 4c 2e 4d |).MapNam|e;...L.M|
|000019c0| 61 70 54 69 74 6c 65 09 | 09 3d 20 55 42 72 6f 77 |apTitle.|.= UBrow|
|000019d0| 73 65 72 53 65 72 76 65 | 72 4c 69 73 74 28 53 6f |serServe|rList(So|
|000019e0| 75 72 63 65 49 74 65 6d | 29 2e 4d 61 70 54 69 74 |urceItem|).MapTit|
|000019f0| 6c 65 3b 0d 0a 09 4c 2e | 4d 61 70 44 69 73 70 6c |le;...L.|MapDispl|
|00001a00| 61 79 4e 61 6d 65 3d 20 | 55 42 72 6f 77 73 65 72 |ayName= |UBrowser|
|00001a10| 53 65 72 76 65 72 4c 69 | 73 74 28 53 6f 75 72 63 |ServerLi|st(Sourc|
|00001a20| 65 49 74 65 6d 29 2e 4d | 61 70 44 69 73 70 6c 61 |eItem).M|apDispla|
|00001a30| 79 4e 61 6d 65 3b 0d 0a | 09 4c 2e 4d 61 70 4e 61 |yName;..|.L.MapNa|
|00001a40| 6d 65 09 09 3d 20 55 42 | 72 6f 77 73 65 72 53 65 |me..= UB|rowserSe|
|00001a50| 72 76 65 72 4c 69 73 74 | 28 53 6f 75 72 63 65 49 |rverList|(SourceI|
|00001a60| 74 65 6d 29 2e 4d 61 70 | 4e 61 6d 65 3b 0d 0a 09 |tem).Map|Name;...|
|00001a70| 4c 2e 47 61 6d 65 54 79 | 70 65 09 09 3d 20 55 42 |L.GameTy|pe..= UB|
|00001a80| 72 6f 77 73 65 72 53 65 | 72 76 65 72 4c 69 73 74 |rowserSe|rverList|
|00001a90| 28 53 6f 75 72 63 65 49 | 74 65 6d 29 2e 47 61 6d |(SourceI|tem).Gam|
|00001aa0| 65 54 79 70 65 3b 0d 0a | 09 4c 2e 47 61 6d 65 4d |eType;..|.L.GameM|
|00001ab0| 6f 64 65 09 09 3d 20 55 | 42 72 6f 77 73 65 72 53 |ode..= U|BrowserS|
|00001ac0| 65 72 76 65 72 4c 69 73 | 74 28 53 6f 75 72 63 65 |erverLis|t(Source|
|00001ad0| 49 74 65 6d 29 2e 47 61 | 6d 65 4d 6f 64 65 3b 0d |Item).Ga|meMode;.|
|00001ae0| 0a 09 4c 2e 4e 75 6d 50 | 6c 61 79 65 72 73 09 3d |..L.NumP|layers.=|
|00001af0| 20 55 42 72 6f 77 73 65 | 72 53 65 72 76 65 72 4c | UBrowse|rServerL|
|00001b00| 69 73 74 28 53 6f 75 72 | 63 65 49 74 65 6d 29 2e |ist(Sour|ceItem).|
|00001b10| 4e 75 6d 50 6c 61 79 65 | 72 73 3b 0d 0a 09 4c 2e |NumPlaye|rs;...L.|
|00001b20| 4d 61 78 50 6c 61 79 65 | 72 73 09 3d 20 55 42 72 |MaxPlaye|rs.= UBr|
|00001b30| 6f 77 73 65 72 53 65 72 | 76 65 72 4c 69 73 74 28 |owserSer|verList(|
|00001b40| 53 6f 75 72 63 65 49 74 | 65 6d 29 2e 4d 61 78 50 |SourceIt|em).MaxP|
|00001b50| 6c 61 79 65 72 73 3b 0d | 0a 09 4c 2e 47 61 6d 65 |layers;.|..L.Game|
|00001b60| 56 65 72 09 09 3d 20 55 | 42 72 6f 77 73 65 72 53 |Ver..= U|BrowserS|
|00001b70| 65 72 76 65 72 4c 69 73 | 74 28 53 6f 75 72 63 65 |erverLis|t(Source|
|00001b80| 49 74 65 6d 29 2e 47 61 | 6d 65 56 65 72 3b 0d 0a |Item).Ga|meVer;..|
|00001b90| 09 4c 2e 4d 69 6e 4e 65 | 74 56 65 72 09 09 3d 20 |.L.MinNe|tVer..= |
|00001ba0| 55 42 72 6f 77 73 65 72 | 53 65 72 76 65 72 4c 69 |UBrowser|ServerLi|
|00001bb0| 73 74 28 53 6f 75 72 63 | 65 49 74 65 6d 29 2e 4d |st(Sourc|eItem).M|
|00001bc0| 69 6e 4e 65 74 56 65 72 | 3b 0d 0a 09 4c 2e 62 4b |inNetVer|;...L.bK|
|00001bd0| 65 65 70 44 65 73 63 72 | 69 70 74 69 6f 6e 20 3d |eepDescr|iption =|
|00001be0| 20 55 42 72 6f 77 73 65 | 72 53 65 72 76 65 72 4c | UBrowse|rServerL|
|00001bf0| 69 73 74 28 53 6f 75 72 | 63 65 49 74 65 6d 29 2e |ist(Sour|ceItem).|
|00001c00| 62 4b 65 65 70 44 65 73 | 63 72 69 70 74 69 6f 6e |bKeepDes|cription|
|00001c10| 3b 0d 0a 0d 0a 09 72 65 | 74 75 72 6e 20 4c 3b 0d |;.....re|turn L;.|
|00001c20| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 69 |.}....fu|nction i|
|00001c30| 6e 74 20 43 6f 6d 70 61 | 72 65 28 55 57 69 6e 64 |nt Compa|re(UWind|
|00001c40| 6f 77 4c 69 73 74 20 54 | 2c 20 55 57 69 6e 64 6f |owList T|, UWindo|
|00001c50| 77 4c 69 73 74 20 42 29 | 0d 0a 7b 0d 0a 09 43 6f |wList B)|..{...Co|
|00001c60| 6d 70 61 72 65 43 6f 75 | 6e 74 2b 2b 3b 0d 0a 09 |mpareCou|nt++;...|
|00001c70| 72 65 74 75 72 6e 20 55 | 42 72 6f 77 73 65 72 53 |return U|BrowserS|
|00001c80| 65 72 76 65 72 4c 69 73 | 74 28 53 65 6e 74 69 6e |erverLis|t(Sentin|
|00001c90| 65 6c 29 2e 4f 77 6e 65 | 72 2e 47 72 69 64 2e 43 |el).Owne|r.Grid.C|
|00001ca0| 6f 6d 70 61 72 65 28 55 | 42 72 6f 77 73 65 72 53 |ompare(U|BrowserS|
|00001cb0| 65 72 76 65 72 4c 69 73 | 74 28 54 29 2c 20 55 42 |erverLis|t(T), UB|
|00001cc0| 72 6f 77 73 65 72 53 65 | 72 76 65 72 4c 69 73 74 |rowserSe|rverList|
|00001cd0| 28 42 29 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |(B));..}|....func|
|00001ce0| 74 69 6f 6e 20 41 70 70 | 65 6e 64 49 74 65 6d 28 |tion App|endItem(|
|00001cf0| 55 57 69 6e 64 6f 77 4c | 69 73 74 20 4c 29 0d 0a |UWindowL|ist L)..|
|00001d00| 7b 0d 0a 09 53 75 70 65 | 72 2e 41 70 70 65 6e 64 |{...Supe|r.Append|
|00001d10| 49 74 65 6d 28 4c 29 3b | 0d 0a 09 55 42 72 6f 77 |Item(L);|...UBrow|
|00001d20| 73 65 72 53 65 72 76 65 | 72 4c 69 73 74 28 53 65 |serServe|rList(Se|
|00001d30| 6e 74 69 6e 65 6c 29 2e | 62 4e 65 65 64 55 70 64 |ntinel).|bNeedUpd|
|00001d40| 61 74 65 43 6f 75 6e 74 | 20 3d 20 54 72 75 65 3b |ateCount| = True;|
|00001d50| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00001d60| 52 65 6d 6f 76 65 28 29 | 0d 0a 7b 0d 0a 09 6c 6f |Remove()|..{...lo|
|00001d70| 63 61 6c 20 55 42 72 6f | 77 73 65 72 53 65 72 76 |cal UBro|wserServ|
|00001d80| 65 72 4c 69 73 74 20 53 | 3b 0d 0a 0d 0a 09 53 20 |erList S|;.....S |
|00001d90| 3d 20 55 42 72 6f 77 73 | 65 72 53 65 72 76 65 72 |= UBrows|erServer|
|00001da0| 4c 69 73 74 28 53 65 6e | 74 69 6e 65 6c 29 3b 0d |List(Sen|tinel);.|
|00001db0| 0a 09 53 75 70 65 72 2e | 52 65 6d 6f 76 65 28 29 |..Super.|Remove()|
|00001dc0| 3b 0d 0a 0d 0a 09 69 66 | 28 53 20 21 3d 20 4e 6f |;.....if|(S != No|
|00001dd0| 6e 65 29 0d 0a 09 09 53 | 2e 62 4e 65 65 64 55 70 |ne)....S|.bNeedUp|
|00001de0| 64 61 74 65 43 6f 75 6e | 74 20 3d 20 54 72 75 65 |dateCoun|t = True|
|00001df0| 3b 0d 0a 7d 0d 0a 0d 0a | 2f 2f 20 53 65 6e 74 69 |;..}....|// Senti|
|00001e00| 6e 65 6c 20 6f 6e 6c 79 | 0d 0a 2f 2f 20 46 49 58 |nel only|..// FIX|
|00001e10| 4d 45 3a 20 73 6c 6f 77 | 20 77 68 65 6e 20 6c 6f |ME: slow| when lo|
|00001e20| 74 73 20 6f 66 20 73 65 | 72 76 65 72 73 21 21 0d |ts of se|rvers!!.|
|00001e30| 0a 66 75 6e 63 74 69 6f | 6e 20 55 70 64 61 74 65 |.functio|n Update|
|00001e40| 53 65 72 76 65 72 43 6f | 75 6e 74 28 29 0d 0a 7b |ServerCo|unt()..{|
|00001e50| 0d 0a 09 6c 6f 63 61 6c | 20 55 42 72 6f 77 73 65 |...local| UBrowse|
|00001e60| 72 53 65 72 76 65 72 4c | 69 73 74 20 6c 3b 0d 0a |rServerL|ist l;..|
|00001e70| 0d 0a 09 54 6f 74 61 6c | 53 65 72 76 65 72 73 20 |...Total|Servers |
|00001e80| 3d 20 30 3b 0d 0a 09 54 | 6f 74 61 6c 50 6c 61 79 |= 0;...T|otalPlay|
|00001e90| 65 72 73 20 3d 20 30 3b | 0d 0a 09 54 6f 74 61 6c |ers = 0;|...Total|
|00001ea0| 4d 61 78 50 6c 61 79 65 | 72 73 20 3d 20 30 3b 0d |MaxPlaye|rs = 0;.|
|00001eb0| 0a 0d 0a 09 66 6f 72 28 | 6c 20 3d 20 55 42 72 6f |....for(|l = UBro|
|00001ec0| 77 73 65 72 53 65 72 76 | 65 72 4c 69 73 74 28 4e |wserServ|erList(N|
|00001ed0| 65 78 74 29 3b 6c 20 21 | 3d 20 4e 6f 6e 65 3b 6c |ext);l !|= None;l|
|00001ee0| 20 3d 20 55 42 72 6f 77 | 73 65 72 53 65 72 76 65 | = UBrow|serServe|
|00001ef0| 72 4c 69 73 74 28 6c 2e | 4e 65 78 74 29 29 0d 0a |rList(l.|Next))..|
|00001f00| 09 7b 0d 0a 09 09 54 6f | 74 61 6c 53 65 72 76 65 |.{....To|talServe|
|00001f10| 72 73 2b 2b 3b 0d 0a 09 | 09 54 6f 74 61 6c 50 6c |rs++;...|.TotalPl|
|00001f20| 61 79 65 72 73 20 2b 3d | 20 6c 2e 4e 75 6d 50 6c |ayers +=| l.NumPl|
|00001f30| 61 79 65 72 73 3b 0d 0a | 09 09 54 6f 74 61 6c 4d |ayers;..|..TotalM|
|00001f40| 61 78 50 6c 61 79 65 72 | 73 20 2b 3d 20 6c 2e 4d |axPlayer|s += l.M|
|00001f50| 61 78 50 6c 61 79 65 72 | 73 3b 0d 0a 09 7d 0d 0a |axPlayer|s;...}..|
|00001f60| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 62 6f |}....fun|ction bo|
|00001f70| 6f 6c 20 44 65 63 6f 64 | 65 53 65 72 76 65 72 50 |ol Decod|eServerP|
|00001f80| 72 6f 70 65 72 74 69 65 | 73 28 73 74 72 69 6e 67 |ropertie|s(string|
|00001f90| 20 44 61 74 61 29 0d 0a | 7b 0d 0a 09 72 65 74 75 | Data)..|{...retu|
|00001fa0| 72 6e 20 54 72 75 65 3b | 0d 0a 7d 0d 0a 0d 0a 00 |rn True;|..}.....|
+--------+-------------------------+-------------------------+--------+--------+